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I. INTRODUCTION 

This memorandum* contains a description and listings of 
computer programs for plotting geographical and political- 
features of the world or a specified portion of it, for plot- 
ting spot-beam coverages fyom an earth-synchronous satellite 
over the computer generated mass, and for plotting polar 
perspective • views of the earth and earth-station antenna ele- 
vation contours for a given i-'.aiellite location. The programs 
have been prepared in connection with a project on Application 
of Communication Satellites to Educational Development. This 

report is intended to be a continuation of the work earlier 

* ( 1 ) 
reported by Stagl and Singh. 

A data tape was obtained from the Rand Corporation con- 
taining a digitized map of the world. Several programs have 
been written utilizing this data tape. The first program, 
called WORLDMAP, simply plots the tape as a map with axes and 
grid lines. The second program, called MINMAP, plots a speci- 
fied part of the total map so that larger scale plots of a 
small area of interest can be obtained. The program described 

(1) ■ ' f*' 

in Memorandum 72/3 is r.sed as an overlay on these two plots. 
This program plots the locus of intersection of quadric cones 
(narrow-beams from satellites) and a sphere (the earth) . 

A third program zing this data tape, called PER^PECT, 

plots a polar p^^rspective view of the earth and earth-station 
antenna* elevation angle contours.. This is a view of the earth 
as seen from a satellite in- the geosynchronous orbit. Using 
a plot of this kind, one can make an overlay of the cross- 
sectional shape of the desired antenna becim and this overlay ■ 
will be valid over the entire plot of the earth. This program 
is intended to facilitate determination of the area coverage 
by satellite-borne shaped beam antennafe. 



*The authors wish to acknowledge the assistance of Mr. Neil 
Ostrander of the Rand Corporation, Santa Monica in acquiring- 
the computer tape containing the digitized map of the world. 
They also wish to thank Mrs. Emily S. Pearce and Ms. Donna 
Barnes for typing the various drafts and the final version 
of the manuscript. 
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Also included in this memorandum is a modified antenna 
coverage program to be used to plot the footprints produced 
by the two off-axis S-band ETV feeds on Applications Technology 
Satellite-F (ATS-F) . This program can also be. used as an 
overlay for WORLDMAP and MINMAP. 



II. DATA TAPE \ 

The point coordinates are stored in strings; latitude, 
longitude, latitude, longitude. . . . 0.0, 0.0. The range 

in latitude is from -n/2 to n/2 (radian measure) , and the 
longitude range is from -n to n. The tape is formatted into 
24 blocks. The first block contains 23 integers which specify 
the number ot coordinate pairs in each of the following 23 
blocks’. Each of the following blocks contain a number of co- 
ordinate strings. The strirtgs are of variable length and all 
strings end with a (0.0, 0.0) coordinate pair. Political 
boundaries are distinguishable from geographical boundaries 
in the following way. Signal coordinate pairs appear at the 
beginning of groups of strings. If the first . coordinate pair 
in a string is (4.0, 0.0) then that, string knd all following 
.strings are geographical boundaries until a s^tring whose first 
coordinate pair .is KS.O, 0.0) is encountered. This indicates 
that that string and all following strings are political 
boundaries until a string whose first coordinate pair is 
(4r0,0.0) is encountered. 

The original tape obtained from the Rand Corporation was 
an 8 track 1600 bpi tape. Since the IBM 360/50 installation 
at Washington University Computing Facilities has no facili- 
ties for dealing with. 1600 bpi tape, the data tape had to be 
copied onto an»800 bpi (bits per inch) tape which is kept in,^ 
the Washington University Computing Facilities. A card backup 
was also obtained in case the tape is lost or inadvertently 
modified. 
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III, PLOTTING PROGRAMS . 

The first program written to plot the data tape, called \ 
WORLDMAP, does not take advantage of the ability to distinguish 
between geographical and political boundaries. This is because 
the added programming complexity needed to distinguish political 
bbundaries from geographical boundaries on the Calcomp plotter 
is not warranted by the use of the plot. 

Basically the progra*^ reads ^e^coordinate strings from 
the tape and connects the point?/with straight line segments. 

The only problem is that the/I^undary of Siberia "wraps around" 
the end of the map and those strings that "wrap around"" must 
be broken in order to avoid "retrdce'V lines across the plot. 

l^nq consecutive points a string for a 
If the separation is greater 
than 2 radians^"the points are assumed to "wrap around" the ends 



r 



This is. done by checking consecutive points Ui a string for 
separation of over 2 radians. 




of the mapy In this case the string is broken there and plotted. 



The .rem^i'inder of that string is treated as a new string. 

/^e input to the program, FACT, is a magnifying factor 
f^t^the map. With an input of FACT- 1.0 a map 50 inches by 
26 inches will be drawn. Any number greater or less than 1.0 
can be, used but one should consider the size of the output 
plot and the size o^ the paper available." Figure 1 is a 
flowchart of the WORLDMAP program. A listing of the program 
is included in Appendix A. . 

The second program writte'h for this data tape, called 
MINMAP, plots only a portion of the total map. The inputs 
to the program are the upper, and lower limits of the longitude 
and latitude and the magnifying factor as for the WORLDMAP - 
program. For this program, all points of each string are 
checked against these limits, and either accepted or rejected 
depending on whether or not they are within these boundaries. 

The size of this plot is somewhat dependent on the input 
boundaries. The vertical axis is set at 10 inches. Using 
this fact and the upper and lower limits on the latitude, a 
scaling factor is calculated. This scaling factor is then 
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Figure 1. Flowchart 6f WORLDMAP Program 
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used, along with the upper and lower limits. qn the longitude, 
to calculate the horizontal axis length. As in ^the- .WORLDMAP 
program, the magnifying factor input can be used to change- 
the size of the plot.. 

S / \ 

The computer prints out the values of the first longitude 
value on the horizontal axis (FVX) , the first value on the 
latitude axis (FVY) , and the scaling increment (DA) in degrees 
per inch. These values will be needed for proper scaling of 
the antenna coverage program. 

A listing of the program is included in Appendix' B. 

Figure 2 is a f-lowchart of the MINMAP program. 



IV, ANTENNA COVERAGE PATTERNS USING DATA TAPE 

The antenna coverage patterns program of Memorandum 72/3 
was modified for use with the WORLDMAP program. The modifi- 
cation, called ANTOVLY, includes an elimination of the port?;jpn 
of the program that scales the coordinates and draws the 
axes.;, as well as a redefinition of the origin and scaling 
factor to those of the WORLDMAP program. The modified pro- 
gram is listed in Appendix C. When the programs are run, 
the map is first plotted. Then the antenna coverage patterns 
are plotted over' the map. The resultant plot shows explicitly 
the areas covered by the antenna beams. 

The inputs to the program are the first longitude value 
on the horizontal axis, FX, the first latitude value on the 
vertical axis, FY, the horizpntal scaling increment, DX, and 
the vertical scaling increment, DY. The magnifying factor, 
FACT, is also input. 

When used as an overlay to WORLDMAP, the inputs should 
be: FX = *-180., FY = -90., DX = 7.2, DY = 6.923, for matchin'g 

the size of ANTOVLY plot with the WORLDMAP. The magnifying 
factor should be thei same as that used when WORLDMAP was run. 

A sample of this type of output is shown in Figure 3. 
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Figure 3. A Typical WORLDMAP Plot With An Antenna Coverage Overlay. 

(Subsatellite point = 120°W latitude) 






0 

ERIC 

MMliffilffTlTLiU 

1 






- 5 “ 



The ANTOVLY program can also be used with the MINMAP 
program. When used in this way, the inputs should be: 

FX * FVX (output from MINMAP) , FY = FVY (output from MINMAP) . 
and DX. = DY = DA (output frohi MINMAP) . The magnifying 
factor should be the same -as that used when MINMAP- -was. run . 

A sample of this output is shown in Figure 4. 



V. 



POLAR PERSPECTIVE 



The third program to use the data tape, called PERSPECT, 
was vtt’itten to provide a view of the ea'rth- as seenjfrom a 
satellite in an earth-synchronous orbit and to plot earth- 
station antenna elevation .angle contours. Using a jplot o£ 
this kind, one can make an overlay of the-cross-sedtional 



shape of the desired antenna beam and this overlay 



would be 



valid over the entire plot. The angular beam- width would be 



first made 



proportional to the linear scale of the plot. \ 

To realize this type of. plot, a projection is 
onto a sphere centered at the satellite as shown in Figure 5. 
The angle of the horizon, RMAX, is first calculated. A co- 



ordinate string is the^ ^^ad from the tape and the 
is calculated for the first • point according to the 
formula: 



angle R 



following 

\. 



„-4- 



R = eSs" [sin(LTSS) Sin (YL) .+ Cos (LTSS) Cos (YiL) Cos(XL) ] 

‘ ( 1 ) 



where LTSS is the subsatellite latitude, XL and YL are the, 
longitude, relative to the subsatel^l'ite longitude and the 
latitude, respectively, of^ the point in questions. -If 
]rmax-r| < 30®, that is, if the first point of that string 
is within 30°, of the horizon, then the angle R is calculated 
for each point of ^tlie\ string according to equation (1) and it 



is checked for visibility. If |rmax-R[ ^ 30°, / that is, if 



the first point of that string is greater than 30® from the 
horizon, it is checked for visibility. If -that point is 
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Figure 4. A Typical MINMAP Plot With An Antenna Coverage Overlay 
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beyond the horizon then all points of that string are assumed 
to be beyond the horizon. , 

For the points that are visible an angle T is calculated 
aecording'.-to the following formula;- ..,* 



■T — Tan” ^ [ Sin (R) t 

^-4 lan Lg _ cos(R)-' 



( 2 ) 



A polar angle about the subsatellite points is calculated 
as follows: 

„ -Ir Cos(YL) Sin (XL) ■. 

^ '■Cos(LTSS) Sin(YL) - Sin(LTSS) Cos(YL) Cos (XL) 

(3) 

The Calcomp plotter uses Cartesian coordinates so these 
polar co-ordinates must be changed to the plotter coordinates, 
XP, YP, as follows; 



XP = T*Sin(U) 
YP = T*Cos(U) 



(4) 



An additional feature of this program is that it will 
draw the contours of constant elevation on the plot for any 
set of input elevations. 

The only''inputs necessary for this program other than 
the data tape are the subsatellite longitude and latitude, 
the magnifying factor and the - set of elevations for the con— 
stant elevation contours. Figure 6 shows a plot of this type 
with 70°, ,45° and 5° elevation contours. Figure 7 is a 
flowchart of the program. 

The program can handle any number of cases in one run. 
The only limitation is the amount of CPU time specified on 
the job card. On the IBM 360/50 system a single case takes 
approximately 45 to 55 seconds, depending on subsatellite 
location and number of ele\^ation contours to be drawn. 

A listing of the program is included in Appendix D. 
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Figure 6. A Polar Perspective of the Earth-From A 
Satellite at 120°W Longitude and Earth- 
Station Antenna Elevation Contours. 
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VI. 'footprints of ats-f s-band etv off-axis dual feeds 

I . ^ 

InaSA's Applications Technology Sate Hi te-F (ATS-F) , 

scheduled for la‘unch in April, 1974,' is going to test the 
feasibility of the direct delivery of ETV signals to low 
cost terminals in\the newly allocated 2500-2690 MHz band 
in Alaska, Appalachian region, and the Rocky Mountain States. 
The antenna coverage -'program, described earlier in Section 
IV, has been modified to plot the S-Band footprints produced 
by the ATS-F spacecraft. 

The basic ATS-F spacecraft includes a prime focus feed 

( 2 ) 

complex having crossed-feed elements. The two ETV beams 

are generated by the 30 foot dish onboard the spacecraft from 
feeds which tie on the satellite North-South axis. Neither 
feed lies on the antenna boresight, the separation between 
the boresight and the nearest feed being about 0.7 degree 
and the beam separation being 1 degree. Since the beamwidth 
is also approximately one degree, the total coverage at any 
one time consists of two footprints lying in approximately 
a North-South relationship, the exact arrangement depending 
upon the subsatellite point and the boresight location. 

These factors -have been programmed into the antenna 
coverage program described in Section IV. The inputs to 
the ATS-F S-Band ETV dual-feed coverage program (ATSFS) are 
the subsatellite and boresight locations, beamwidth dimen- 
sions and the plotting parameters. The plotting parameters 
are FX, FY, DX, DY and FACT, all of which are described above 

The modified coverage program can be used to plot foot- 
prints either over the WORLDMAP or the MINMAP. Figure 8 
shows the footprints with a subsatellite location of 94 “West 
and boresight poihted towards 8l“West and 37“North. A 
listing of the program is included in Appendix E. 
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Figure 8. ATS-F S-Band ETV Footprints. 

v^aLelliLe at 54'“W Longitude) 
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Appendix A 
WORLDMAP, Program -1 

c 

C ! MINS I CN f GC u: ( ) ,'I nup ( j.PLTXC'HIfPLTYC'KifNC?^)- 

LPll Puni( ii'LF , 1 )/^0 ) * 

C .<caC scalp G:AC. TCP ‘ ” . . 

HtAi: (S.ICC) I ACT 

i.Oo'FCP*'AT(rlO«3) * 

call faCTCIMFACT) 

CALL =LCT ( C .Gt-^^5. ) 

ryX'—^.l/tlPS^C 
fVY-rvx/2.G ■ , 

CAX = 2 .*2 50. 

G A Y = 3 . K 1 -J 2 C / 2 o . 

FX=-ISC. ^ 

FV=-SC. 

, UX=i6C./5u. ■ 

CY=ieC./26. 

CALL dlCT ( 2 .0,2 . F, ? 3 ) 

,C C.naW Axes 

CALL AXIS(C.,0., 'LCNOnUnE* ,-F,50.,C.,rx,0X) 

CALL AXi S( C .C,0 .0, • I A r I Tl;ni • ,p ,2A. ,0.n. , F v.nvi 
L-IL TXIS(0.0,2::., 'LrN'f-ULf'F'.O.FO. ,C. ,F>,''X| 

LaLL \x t S ( :U. ,'C . , ' I a T I TUPL ' ,-.T ,26. ,cn . , F V ,')Y) 

»TclC(‘l) N 
K = 1 . 

c rlao crc«niNATF hlcck 

7J RSAC(^)CCOKO . ■ ■ . . 

8i L = 1 
Id 1=1 I 

IFCOCC^UZ + L-l) .GC.A.0)L=L + 1 
21 PLTX ( I )=CCCRU(2^xl) 

PLTVd ) = Cl CR0(2*L-1 ) 

C uiiuCK FC^ CNO CF STRINO ■ 

IF(FLTX(I).hO.O.C.ANn.PLTYm. KO.C .G ) GC, TC A7 ' 

IF( I.LT.2)GC TC 31 

C C.icCK FCS -KiC TC +130 V>PAP A'^OINC ; 

lES l = A3S( PI.TX( I )-5^1 TX ( I-n 1 1 

IF( TEST .GT .2. HTO TO ? 7 
3 I L = L M 

i = I ♦ r 

OC IG 3.7 

m/ FLrx(i)=rvx \ 

PLTV(T)=FVY 
PLTX ( t,+ 1 ) =CAX 
PLTy ( F+ n =C.'.Y 
N PIS = 1-1 -s'' 

C OkaVi STkING of FCINTS 

lILL L'Nf:(PLTX,PLTY,N'MS, 1,0,0 
5a L = LU 

IFU.LC.NiKMGC TC 15 
K =K U ' 

IF (K.NG ; 12 )• GC- TO 5 
CALL FLCT (C. ,C. ,-2 ) 
j I F( <.’1T .23)GC TG 00 
GC TU ?C 

^ / FLTxn )=FVX 

PL TV ( : ) =FVY 
PLTxn + i)=i:Ax 
f’ L T Y ( I + I ) = c A Y 
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Appendix A 

WORLDMAP Program -2- 



NP 1 S = I- i 

C s IK INC lF . P(;i\is 

CALL LlNt-(f>LrX,KL7YtNPTS,UCff) 
uC TO 15 

9J CALL PLOT (0. ,1. ,-? ) 

C G>^IC LINFS 

DC J-=.l,25. 

X = PLL;a I IP’f'J-l ) 

NK::»« = J- ( J/2 l-fj 
lF(NKPv.cj;.c) GJ TP 46 
CALL PLCT{X,0.,3) 

CALI. P L C T ( X , ^ ^ ) 

o C I ( j '« 5 

'.V. call PL C T ( X , 2 <. . , 3 ) 

CALL PI. C7 ( X ,0. f 2 ) 

<|J CCNIINU,': 

UC A 9 0=1,11 
V = FLC AI (2«J-l ) 

NRr;V = J- ( J/2 ) «2 
iPINKIi'^.Ft,..)) GO TC 4 1- 
CALL PLCT (C. ,Y,3) 

CALL PLCT (5C.,y,2) 

GC ru A 9 

'ui C ALL PLCT ( 50. ,Y ,3) 

CALL PLCT (0.,V,2 )' 

A y C ( M i \ L t-: 

CALL PLCT(C.tC.,99<5 ) 

'•■bTJP 



\ 
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APPENDIX B: MINMAP PROGRAM 

/ . * 




•> / 




FILMED FROM BEST AVAILABLE COPY 



. \ 



Appendix B: 
MINM/TP Program 
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LM'-r-iNs (CA niuF(iocc) , cTd.^f) ( ,A ( 

U/..I.L Pt.ClMlFLr , 1)00 

c'all pi.c t (0. . 5 ) 

KcAL iCALC- FAC 1 C 3 ■ 

FACf 

S i I C'^VAT IFI'OO) 

CALL r: ,^cTlF(FAC r ) 
call 1(1.,. 5,23 ) 

lCIn vT -J 0. 1 A15' 20 5 J5/ 1 I 
pitAC UXACAUIF!; U- VAF v'’ 

5 , ICC) XLL , XUL ,Vl, 1^ ,YUL 
lCj FCP^AI (AFli). n /' 

FVX = XLI • 

r- vv ^ y I L 



YP( 0 ^ ) 



,v '■ 



• -A.' 



C J 



C A= ( YLL-YLL I/IC . 

■rtP 1 lc('^,20CI FVX ,.F VY 



.FACT 
• FVY = 



• ,F 1 C ,AX, • i:a= • ,F 10 .A , 



, F V X , C ■ 
,P,Y.AXL,<)C. , «^VY,nA) 












C 

c 



FCtOAT (IX, 'FVX= ' ,F 1C .A,AX, 

^ . ',Xi, *FtC 1 = ' , F m I 

XAXL= OUL-XLD/U; 

;y A X l''= ID. 

HKArt AXES 

CALL i';v<is(c.,c. , 'LrArucni 
CALL^-ixl S(C.,C. , 'L/ T TTliri: • 

LALL £X1S(C.,Y/ XL, ’LCNFITCDf. '.O.XeXL'rC. ,FVX,Ca) 
C,(PLL ,3X1 S(XwiXL,0. , *LflTiTljl)!. ' ,YA X L , <5 C . ,FyY,rA ) 
,XLL^XLL*CCNVrP 
CA=r.A>>CCAVTP ' ‘ 

'■ XLL ^XLL«CCAUR 
YLL O LL4CCAVTP 
YLL=YL'L*CCNV1R 
K E « 0 I ;1 I A 
i) C 1 C K = 1 , 2 .1 ’ 

Fc^ocs.) cr.r.,Rr 

Kl = 1 ' 

N'P=l V . ■ 

IF( CCJC‘<L (2 + M-l j . LT .A . »rc , TP 11 
NL=M*1 

XF(AP)-CCCpI)(2*NL ) 

YF ( !\i> ) =i:c(:kC(?<'M- 1 ) 

ChuCK FL*^ FMj CF STPINC 

IFl VP( \p ) .KC.O. . ANO.YF ( N'F ) .FC'.O. ir.C TC 12 
CriwCK -"lR PClM IN RCLNCS 
1F(XF(NP).L I.XIL )GC TO 
1F( <P(M>) .GI.XLL )GC 
iF( YP(NP).LT.YLL )Gf 
I F ( YP ( NP ) .G1 .YLL )Gr 
NL = M+1 
NF = NP+ 1 

1 F ( NL .LE .MK) )GC Tf 
GC TC IC- 
Ic xF(NP)=xLl 

YP(NP)=YLL 
XFlNP + l)=l;A 
YF(NP*1)=LA 
NFl S=NP-1 

STRING CF FCINTS 
IF (NPT S .LT.2 IGC TH W, 



' \ 

Ij 

i 1 



TO 

TO 

TO 



1 I 



1 ’ 
.1 3 
1 ? 
1 3 



O 

ERIC 
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Appendix B 
MINMAP Program -2- 



CALL L INr(XP,YP,KPTS,l,C,C) 

1 -t \L=MU 

1 F(M .OT .N ( K) )G 0 ir n / 

OL TJ 

13 XF(NP)=XLL 
YF(NP)=YLL 
XF(\Ptl)=L)/. 

YF (Npfi ) = d;^ 

NF1S=NP-1 

C J.<hW string cf fcims 

I F (NPTS.L T . 2 )GC TC 17 
CALL L INF ( xi’.YP, rPTS f I fO tO) 

1 / NL=NL.+ 1 

X = CCC«n ( 2 <'N L ) 

Y=CCCFI)( 2 «NL -1 ) 

c l.illk flp lnl cf string 

1 F( X.c'^.C. .ANC.Y.FC.C .)GC TT 
C CtibuK FLA PCINT IN PCUNGS _ 

IF( a.LT.xLDGC Tf 16 
IFO.GT .XUL )GC Tf! 16 
IF ( Y . LT .YL L ) GG TC 16 
iF( Y. G r. YUL )GC rc 16 
■ NP =1 

> GC T'J I I 

lo IF(NL .LT.N ( K ) )GU TC 17 
IJ CCNTlN'jUr 

G G'UC' LINFS -ir- 

LC 70 1 = 1 , G 
Y=FLLAT(I) 

' CALL FLCTl C . ,Y ,3 ). 

70 CALI FLCT (>AXL,Y, 2 ) 

N>= IN'T (XAXL ) 

IFIFLQATINX) .EG.XAXL)NX = NX-1 
_qc 3 0 J= 1 ,N> 

-X = FLCAT(J) 

gall FLCT(X, 0 ., 3 ) 

. 3 j call FLCT ( X , 10 . , 2 ) 

CALL FLCT ( 0 . , 0 . , 90 <; ) 

STOP 

LNO 



) 

) 




I 







t . 



\ 
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APPENDIX C: ANTOVLY PROGRAM 








/ 
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/ 



ERIC; 



^ \ T C V L y 



Appendix C 
ANTOVLY Program 



- 1 - 



I«' 0LICIT 

!:sl^,cccs,[:scRT,^<'■?s IN ,rARrcs,CATA\ 

1 NT =Gf.R^^ NSTSPS , If.T , I » N ,\f>LT , IFUf lACCO ) ,\P 1 , 

XFIFI^,) ,YPtFl4,) 



NP? f NT'^f I 



o ,Jl iL,k,NFL 
IMECE-i^A , T 7 .T' , ' ) ' / 

IMdGLRo^ 

kl^L»^ IC Nl /2? ) , la T( 7,'? ) ,M ,vrr ,vr T ,Fx , f V ,r y,rv ,xsS,vsS 
INrEGt"? I.MiIPtNP 
iNTEGFS^'!. ISYN('j) 

LATl ISYN/i,^,ll,'J,10/ 

LINEN. SIC\CF(lC),CnS(a),RPUS(f) 

U A T \ L J S / . 1 , . E , . E • 1 . ,1.5,3. , 5 , , I C . / 

LrtT 6 R^WS/ . lb , .A , .56 , . 7,'V. , 1. ?7, 1 . 7/ 

L A T A FI / ^. 1-^1592(5’ 5 65 7s:>CG/,PF/3.56r3/, HIST/?. 6 26P-^/ 



KlAG ( ‘3 ,2Cb) FX,6V,; X,:3Y,rx ,CY 
20 j FCRNAT (6F1C.3) 

CALL PLCTS I leUF ,AOOC ) 

/Hl-A : ( 5 , 201 ) FACT 
ZCl FC*<*^AT ( F 10. 3 ) 

. CALL F ACT'CR ( FACT ) 

^C.N\T-P-45I/1,30. 
i3.^< = f:A.RGIN( Rc/C 1ST) 

ChK . 3«CCNVTF 
2 R-AO(5,9CC,cNO=lCOO) N^LT 
yCj FCR^AT ( r 1 ) 

DC :3 NPL=r,NPLT 

, 1 KcVj(5,5CC,6ND = 'j50)rLCNSS,OLCN'CT,0L'ATCT,CINlCR,nCELT 

jCJ FCR*'AT (5F9.3) 

RtACl 5,5GI).TFE1A1,PW1A,«W?A,L 

501 F'CR'-mT (3F9. 3,12) " ' . 

F y I ( 2 ) = c I G n ( I ) 

K E, A 0 ( 5 , F y T ) ( C 3 ( I ) , I = 1 , L ) 

NCP.^C 
N = N»l 

WRI It;(5,5CC)N,r. LeN'SS,r5LrNCT»CLATCT,rCEI.T»PW?»- »PV.lA,Tht TaI '' 
oO^ ■F-CK''AT ( // ' lOAT A SET NJ. ',I2/^X,'SUP SAT LONG =',F9.3/ 

L <)i,'3L'R SGHT LCNG = ' , Fq . 3/AX, • PCR SGFT LAT =',Fq.?/ 

^ '<X, *3LCLiN7 TICN = ' , F q . ?, / A X , • y I N H v v, T TM • , 5 X , ' = ' , F 9 . 3 / 

i PWaDTH' , 5X, '= ' iF9.3//4X, TPIENTATIGN =',^9.3) 

C Ct.WhRI FROy UEG RkcS TC PADI.ANS 
INC l = PINCR^CCNVTR 
, LC NCT R=(CLCNCT-DLCNSS )*CCNVTR 
•’ LAT :TR = r:LATCT<'CCNVTR 
CEL1=CCELT=»CCNVTR 
dV»l=bHlA*CCNVTP/2.0 
tu;3 = dW2A*CCNVTR/2 .0 
TFtlA = ThF.TAl«r.CN\,TR 

C CmlCK FCR P.CRESICFT LCCATTGN IN' CANGE CF SATFOLITF 
ML = CARCCS(i:CC:S(LCNrTP )*rrCS(.lATCTR + GFLT) ) 

IFl AL.LE.CFK)GC TC 21 
2 jwRITc(6,ACC) 

FCRyi.T IIKO, 'bCRESIGFT LCCATICN IS NCT IN RANGE CF S A T FL L I TF . ' / ) 
GC lU 1 

C CU.3PLTE V6CTCK FRC^ SATELLITE TC/FOPFSIGFT LCCATICN 

pS <=kE=>CCCS(LATCTR )=»CSIN(LCNGTR) i • 




* 
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Appendix- C 
ANTOVL Y Program 

=i: niT^CCCSCr.ElT )-PE*CCCS (L/'TCTP )*cr.cs {LONT J 
= JI ST*uS I.\(CbLT i+'JEO'fSINUc TfTW) 

u/>''=JA5SI\ (PE*DS1MAL)/»SM) 
tL=((PI/;?.0)-(AL«G‘*''))/CCNVTP 

«KlTk(c,3O0) el- 

jCJ f-CP'-ATl^X,' EL E VATICA-'-,6X., \= ' , F 9 . ? ) 

L. E N C M = T S : P'T I R S X ■» *? ♦ n S Y ♦ * 2 ) 

RiTCH = CaoiJI^l«SX/^E^C‘M 
HLLL=oaTAMSS2/OENGN ) 
oP = Cl-.';« (P I TCM) 

LP = rCCS(i‘'CLL) . '' 

SP = TjIN if ITCH) 
iP-'-CbiMRULU 
i3 JC 3^ K = I f L 

NCB^NCP + l 

LC3=l-KU 

; ImIerfclate fcr relative PFAr^wicrF 

DC 5 J=1 f 3 

lF{C3(LCe)-CES(J)i6t 7f 3 
t FEVi=RDWS(j) , - " 

OC IL c ■ 

,j CCM.iAC'c 

o-.-j r= j-i 

, " Kd-H = lCF(LCP)-CBS(Jl))*(FPV*S(J)-FPw5(jn)/(reS{J)-CP?(Jl)) 
1 ♦R2RSU1) 

i A=TSM*r:TAN( IKHREW) 

Q = RSM*GTA\(ew2’*RHR) , 

«LFhi = 3rtl/'*R'^rt 

ALFH2 = °W2A*-»EW 

NSTEHS = (36C.3/CINCP)+i 

bN«:n- = CALFHA*F!lV. 

UC 1C ICT=1,NS1CPS 
JE I A,\ = ( ICT-l )’» INCR 
M N G = a i. T A N T h c T 4 

UM= I .0/CSQP T ( (CCrS (PET AN )/ A) 4*2 + (CS IMPET AN )/p )**2 ) 

C CJrtPLTE N-TH P VECTCR FRCP SATELLITE Tf LCCLS CN EARTF 
MNPx = RSM*CK»SP + UR*f:rrS( ANGn'CP-UR^nS IM ANG) *SR*SP 
MAPY= RSM*CR^CP *UR*rCCS I ANG ) ♦SP-U‘'*r.S IM ANG ) *SR*CP 
MNPZ = RSV*SR ♦LX^DSIMANG ) *GR 

R N < = M N F X 

^^Y=N^PY*CCCS(CELT)^Y\PZ♦CSI^(r.6LT) 

f'M = MNFY«(-CSIMCELT ) ) ♦ NNFi-£>r-eefH nfl. T ) 

iJN = CAWCCS(MNY/CSC»T(RNX**2 + RAY=>‘».2 + f'NZ**2n 

IF{ EN.1T .BV)GC TC 3C 

CN=F I-GARS IMRSIM«N)*CTST/PF ) 

UN = P 

7^NL=USC3T(REv*2 + (IST**2-2.*RF<-niST*rCf'(CN)) 

CENC-^=DSCRT (MNFX«*2 + RNPY’»*2 ) 

F I I ChN=DAk b IM f'NFX/rENCM ) 

RC L LN = i: A T AN (RNFZ/nENG’^ ) 

C CJMFLIE \7TH vector FPCN CENTER OF F.4PTH Tf LOCUS ,. — 

Kc I =MNi:*CCCS (RCLL^)*nS IN (PJTC'FN) 

kEJ =.H ST*i:CCS(CELT )-''N L *ECGS ( PC LI N ) *ncr 5 ( P I TC F N ) , 
KuK=YNL*CSi-N(RCLLN)-t lST*V5IM OLLT ) 

GC TC AU 

C Ir N-TH R V'ECICR OCES NT.t 1N7ER5FCT F.ARTF CCVPLTE V^CTr^P 
C r.^CR CuNTER C^ EARTH TC HORIZCN SEEN PY 5ATELLITF 

jj lAuN = CAfiCCE(RNZ/CSGRT(WNxr*?4,vN7.i»*2)) 
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Appendix C 

ANTOVLY Program -3- 

l^ (N.\X.LT.C.O)TALN=-f 
kCI »»CS IMT/'UN) 

rEJ=<<c*(-cfcs{i:LLT)*rsiM?Mj-rsiN{rLLT )*rco5{ o'* i*ccrs( ) 

{-LS I\( C hi T ) *CSI^ (BV M-rCCS (OrilT )«rC(:'{ )^cr.cs ( T AU\ ) ) 

‘ij LE\*uSC«MFhI*«_»+f-r 

uu.iPiT: Lr\',iTLCi hm: L/TiTijn: crccriNAHs 
LAI (".CT ) ^SNCL (i)ATA\’(HFK/nf;\»/CCNVTP) 

Iw. Lt\(ICT)=iNGl (i:AFSIMyi l/rCN)/r.CNVTp*nUNSS) 

•«HI IL Ih.lCOLM LCB) , M.Pl-l ./afri? 

lCj f-c IW-.3X , 'AT ',FA.l,' TA I PVf I : • /A> , 'MAX RWy,r:Tt-= ‘,F5.?/ 

1 AX.'ViN 

^ 5X, • LC \ - nuT r • ,7X I 'LA TT TLPi ' / 5X , • (CrGkFF5 » • ,ex , • ( CPr.'^r.ES 

J / ) 

Uu ho l-l,NST€F‘j 
WSITcle,2CC) LCNll),LATm 

t-Oj FCAVmKIH ,AX,FQ.3,6y,Fq.^) 

IF (LcM 1 ) .IT . - IhC. ) 1 CM I ) = 3fcC .♦! t N( I ) 

IF n .LT ,F> ) I CM ! )=FX 

iF IlCM I » .C r . X) LCM T ) = r x 
i F ( L A T I I ) . L 1 . F M L A 1 I I ) = F V 
IFILATI I ) .Cl ,F^ )LAT(I ) = FV 
ho CC xIiNLE 

LCSVTil = S\GL(Cr NVTP) 

XC r M SN ',L( CLC \C T )-r x |/f;x 
YC I =( SNf.L (CL Arc n-FV ) /' Y '« 

CALL SYNBCL(XCfiYCT,0.lA,lSY'«(N),C.,-l ) 

C .'cCl CLCPCINAIES Cr LCC.L'^ 

3J iP^l 

II (F ( ACS (LCM I> ♦ I )-l CN {('')) .f^T .IOC . )CC TC ?C 
J/ xP(lP» = LCMl'^) 

Y P { 1 P ) = L A 1 ( I (« r 

1 ^ M Y 1 - - ' ' ' 

iPMP + 1 

IF( IP.LE.NS lEFS ICC Tf A 7 
XP(1P)=F> 
xP(IPU)=r,X 
Y?( IP) =FY 
■ YP( IP+ 1 )=1)V 
\ P = I P- 1 

CALL LINF(XF,YF,NP, 1,0,0) 
oC TO 3? 

A/ lF(lP..;O.NSIFPh)CG TC 17 
GC 1C 31 

7j XP( IP) = LCN( in ) . ‘ 

YP( IP) = LAM IV ) 
aF(1P+1)=FX 
XF. ( IP>2 ) =CX 
YP(IP+1)=FY 
YP(IP+2)=CY 

LALL LINE(XP,YP, ip, 1,0,0 
iN = iPH 

GC TG 5C 

clminle 

xii = ( sngl([:lc\ss)-fx)/l:x 

YbS = ( 5^GL (-CGELT )-FY )/CY 
3j call SYNBCL ( X5 S ,YSS iO ,?1 , ISYN(\ ) ,C .,-1 ) 
l>njCALLFLCT(b5.,-l.,2 3) 

GC 1:J ? ' 
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Appendix C 

ANTOVLY Program -4- 



C oLUSc PLCT r AHF . 

IlCJ lALL PLCT{C.»C»»9J9) 

WRI r> ( 6 , 601 » 

oCi f-C .<V4T ( ' CPLCT I APE ClTSFr') 
STCF 
t\ J 



I 






/ 
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PERSPECT PROGRAM 



Appendix D 

PERSPECT Program -1- 



FILMED FROM BEST AVAILABLE COPY 



P t. ■< 5 H 1. T 

JII“PN5IC\ I ^L)F(lCOC)tCrf?tJ[)( 1??A) }»VO( = i4) 

C I w i N S i r \ : L (1 0 ) 

LXbS.nSb 

5EAL'»^L.\SS*' 

:aI' ‘‘I *S/ >.l-il5‘:36,6.6166/ 

CALL FLCTi>{ ItiLF , lOOC J 
CALL FLCT(C.,-?3.5,-?) 

K c.-» c I E , -!i 0 0 ) r c r \ 

fi.u Ff AT (F la. j) 

call PACTC3(f AC r } 

C.^LL PLCTl 
ZCWT^^Fl/lld. 

IvAi« = A«SIN{ l./S) 

F V = C . C 
lA=Cl\VTK 

-^NA> = «:C. *CCNvTR-TyAX 
RcAC SueSATCLLlU ccrwni\AT"s 
-» -<FA3(= aCCfENOnCJDLNSS ,l TSS 
iuJ FL AVAT (2FIC.<?) 

LNSsF=L\SS*CCNVTF 
CEL TR = LTSS*(.C WTF 
SIM=S IMJLLT;^ ) 




C 

C 

C 





ccsc=rcs ( jll ir ) 

REA':{;^)\ 

K = 1 

RsAC { E ) CLCHU 
L=l 
I = I 

iF(;c:Ar:(2n-i).Gr;.<t.)L = L*i 
YL-ClC-^U(^’«‘L -1 ) 

XL = CLC-»J(^*L)-LN5SP 
SINLT=S1MYL» 

CCSLT=CCS(VL) 

SINLN = S1MXU 
CCSL.\=CCS( XL) 

CCS»=S IND»E INLH-CCSC*CC$LT*CCSLN 
K=A3CCS (CUSP) 

CIF=k>AX-K 

IS FMST PCIIMT IF. STRING VvITFIN 30 CECREFS CF HCPIZCN? 

IF(AdSlLIF).LT. .523536. 3 TGC TC ?0 

FIRST PCIM >iO TtGREfS FRCV FCRIZGN... 

... IS IT VISIBLE? 
iF(CIF.GT.C.)GC TC 70 
L = L*1 

IF ( GLCK'n ( 2*L- 1 ) . E':.C . . ANR .crrnr ( 2*L ) . FC . 0 . ) cn TR fcO 
oC TL i'l 

FIRST FCIM <3C CEGRFES F«C'^ FRRIZCN... 

... CHECK EACF FCIM FCR VlSIPUnv. 

IF(CIf.GT.C.)G( TO 7 0 

NCT V I S I PL E . . .CHECK NEXT PCIM 

L = L*l 

IF(CLCHD(2'»L-1 ).E(,'.n..AM:.CrrRC(2*L).EC.C.)nC TG E"- 
YL=CLCRO(2«L-l ) 

>L = CCCRC (2*L)-L\SSR 
SINLT = SIMYL) 

CCSLT =CCS( YL) 

SINLN=SIMXL) 

% 

. 33 
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Appendix 0 
PERSPECT Program 



CCSIN=CCSUL) 

ccs'^= s I iMi ♦ccsr:*ccs nicest N 
KsiiiCCSCCuSf') 

C I F = f N I? X- •< 

CC 1C ?0 

: visit‘Lc'...ChcCK. s-tint 

7j T=A!AMii;,(-<)/(i-CCSCM 

L = A]A\,MC .)SLT«i^S I MN ,f C‘;r*S! M T-SI NC»rCSl T*rr \J 
>p( I ) =t*saml) 

VF( I)=I*CC!;(U) 

1 = 1*1 
L =L ♦ 1 

IF ) .1 .’.C. ..‘Nf.CTPr l?*l ) .tc.c.) C } Tf 5? 

YL=Ccl'>UU«L-1 ) 

>L = CLC-C (^*L )-LN5Si' 

SIM T = SIMVL) 

CCSl r = C.CS( YL I 
iIMK=MMXL) 

CCSLN=CCS( XL ) 

cc S"* = S!Nn*siMT*ccs.r#rrsiT«ccsi N 

F =A=5f.f:S (COSH ) 

CIF=KV«X-R 

1F(CIF.GT.:.)GC ir 7C 
L =l - i 

sj xp( n = fv 
>p(i*n = cA 
YF ( I ) V 
YP(I*I)=CA 
NFl S= I- I 

0 PIC! Sli^iWC: 

CALL LINE(XP,YP,NP7SiliC,C) 

6j L=L*l 

aFIL.LC.Mk nee TO l( 

K =K ♦ I 

IF( k.LE.^ 3 K.U TO qc 
C UHA*. HCRUCN 

DC ^0 J=l,7^ 
eEl fl=E.*(J-l ) «CCKV1F 
XP( J) =TVAX'*CCS ( df TO » 

•id YP{ j)=TPAX*SINieETA) 

>P(J*-l)=FV 

XP(J*?)=Om 

YP(«*I)=FV ^ 

YP( J*?) =DA 

Call line ( XP , YP , 73 ,l ,0,C » 

CALL SYMBOL (U. ,0. f .c"P, 7, C.,-1 ) 

C PHArt CCNSTAM tLCVATICN CCMCUi^'S ’ 

Hi.A:( StPOU) MS 
2QJ FCR»-AT { I n 

IFtM S.EC.OI GC TC SA 
R^A-)(5,300» (cLU ), I=!,MS) 

JCd FCR''AT(‘iF5.3 ) 

OC St K = l ,M b 
AN32-(<;0. + EL(K) I*CCNWP 
ANGl^A'JS IM S I M AN3? )/S) 

CC S5 C=l,73 
etTa=5.*(J-l )«CCNVTF 
XPU) =ANCl*CCS(iitTA) 

Sj YF(o)=ANOI*S IMBf TA) 
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Appendix D 

PtKSPECT Program -3- 



xo( 1 ) =Fv 

V P ( J ♦ 1) = F V 
VP(J*-?)=CA 

Call l[Nl(xp,yf, 71,1, c, 01 

YN= V\01/CA*.05 

call N'JWBLR(u.iYNi.?1,FL(K),G.,-1) 

•j- CC\ Il\Lc 

CALL jYf'SuL (-1.33,-10. ,.21, 'LONniTUrr =',C.,11) 
Call NLw->:.S(t qqq.,.?i,LN5S,0.,’) 
call SY'^e':L(-l.J3,-lC.3S,.2l,'LM'(Tunt =• ,r.,ii) 

call p (s^^s. ,'5«;c . , .2 1 ,li <s ,n. , 3) 

call FLCT ( 3 J. ,C. ,-3 ) 

HCwlNl P. 

UC lU = 

icCJ CALL FLCT ( 20. ,-l b. , S90 ) 

S ll}f 

dNJ 
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Appendix E 

ATS-F Dual-Feed Program -1- 

41S-FS 

IMPLICIT REAL*8ia-Z» 

REAL*8 CSINtDCQS.OSCPT.CARSINtOARCCStCATAN 
INTEGER* A NSTEPS tICTtItN,NPLT,IBUF( lOCO ) tNPltNPP.NCBtLDB 
REAL*A FXtFY.OXtDY 
INTE6ER*A J,Jl,L,K 

' INTEGER*A FHT(A)/' ( • t • • , * F 7 . 3 • • * ) * / 

INTEGER*^ CIGITllOI/'l'i'Z'.'B't'A'.'S'.'E'.'T'.'e't^J'i'lO'/ 
REAL*A LCN(722»,LAT(722).Nl,XCT,YCT 
INTEGER IJ 

REAL*8 RCLLltANGDIF 12 » 

OIHENSICN Ce(lO)#OBS(8),ReMS(8) 

C4TA C 6 S/.I 1 . 2 . .5. L.tl.5«3.t5.tlC./ 

CATA R8WS/.l8t.26, .A , .56».7,1.,1.27, 1.7/ 

CAT4 PI/3. lAl5S2A5358S7R3C0/tRE/3.96C3/ ,CIST/2.6260A/ 

READ(5,99) FACT 
99 FCRMAT (F10.3) 

N = C ' 

NPLT*C 

CCN\TP=PI/180. 

ANGCIF(l)=.5*CCNVTR 
ANGC IF(2)=-.5*CCNVTR 
BM=DARSIN(RE/OI ST) 

CFK=81.3*CCNVTR 

i KEAC(5,500,EN0=10O0)OLCNSSt0LCNCT,CLATCT,DINCPtD0ELT 
50J FCRMATI5F9.3) 

REAC(5,50I) BM1A,BW2A 
501 FCRMATI2F9.3) 

N = N4l 

WRITE(6,600)N,0LCNSS,0LCNCT,CLATCT,CDELT,eW2A,BmA,THETAl 
60J FCRMATI/Z'IOATA SET NO. 12/AX, 'SUB SAT LONG =',F9.3/ 

1 AX, 'BOR SGHT LCNG =• ,F9 . 3/AX BCR SGFT LAT =',F9.3/ 

2 AX, 'CECLINATIQN = • , F9. 3/AX, • H IN RHtiCTH • , 5X , • = • ,F9. 3/ 

3 AX, 'MAX BM)«0TH',5X,' = ',F9.3/AX, 'ORIENT/TICN =',F9.3) 

C GCNVEPT FROM DEGREES TC RADIANS 

INCR»CINCR*CCNVTR- 
LCNCTR=(DLCNCT-DLCNSS )*CCNVtR 

latctr=clatct*ccnvtr 

DELT=CCELT*CCNVTR 
BV.l = BWlA*CCNVTR/2.0 
ev.2 = eH2A*CCNVTR/2.0 

C CHECK FCR BGRESIGHT LOCATION IN RANGE C F ^JSAT EL LI TE 
AL=CARCQS(CCCS(LCNCTR)*CCOS (LATCTR + DECT ) ) 

IF(AL.LE.CHK)GO TO 21 1 

20 hRITE(6,A00) 

AOO FCRMAT(1H0,'BQRESIGF(T LOCATION IS NOT 1 IN RANGE OF SATELLITE.'/) 
GO TC 1 1 

C CQMPLTE VECTOR FRCM SATELLITE TO BO^ESIGFJ LCCATICN 

21 RSX=RE*OCOS(LAlCTR)*DSIN(LONCTR) \ 

RS Y=D I ST^DCCS IDE LT )- RE*CCOS (LATCTR ) *000 S (LONCTR) 
RSZ-DIST*OSIN(DELT )>RE*DSINILATCTR) 
R<H=DSQRT(RSX**2-FRSY**2+RSZ**2) 

G/M=CARSIN(RE*DSINC AL)/PSH) 

EL*( (PI/2.0)-(AL*GAM) )/CONVTP 
WRITE.! 6, 300) EL 

300 FCRMATIAX, 'ELEVATION* ,6X,'=',F9. 3) 

0ENCM=0SQRT{RSXW‘*2+RSY**2) 

PITCH=CARSIN(RSX/OENCM) 
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Appendix E 

ATS-F Dual-Feed Program -2- 

RCLL1=DATAMRSZ/CENCM ) ' 

^ ‘ DC 31 IJ=1,2 

RCLL=RCU1*ANGCIF( IJ) 

^ CP=CCCS(PITCH) 

CR=CCCS(RCLU 

SF'sCSINCPITCH) 

SR=CSIN(RCLL) . 

NPL1=NPLT+1 
IF(NPLT.GT.1)G0 TO 15 

C FIRST PLCT, OPEN PLCTTAPE ANC SET CPIGIN 
CALL FACTORIFACT) 

CALL PLOTS( IBUF, 1000) 

15 CCNTINUE 

A,= R5H*CTAN(BW1) 

B = R5M4CTAN(B^2) 

ALPH1=8W1A 
ALPF2=BW2A 
UN = A 

IF(.IJ.EQ.2)UP=B 
N'TEPS=(360.0/0INCR ) +1 
DC 10 ICT = 1,NSTEPS 
8ETAN=( ICT-1)*INCR 
ANG=BETAN 

C COMPLTE N-TH M VECTOR FRCN SATELLITE TO LCCLS CN EARTH 
NNPX=RSM*CR*SP*UM*OCCS(ANG)*CP-UM*DSIN( ANG) ♦SR^SP 
MNPV=RSM*CR*CP+UP*DCOS( ANGI*SP-UPACSIN (ANG)*SR*CP 
HNPZ=RSM*SR + UM*OSIN( ANG)*CR 
PNX=HNPX 

PN V = HNPY*OCCS( CELT ) ♦HNPZ*DS INI CELT) 

HNZ = MNPY*(-DSIN( DELT) ) +MNPZ*CCCS(CELT) 

8N = CARCCS(PNY/bSGRT (MNX**2 + HNY**2*PNZ>»*2 ) ) 

IFI BN .GT.BM)GO TO 30 
• CN=FI-OARSIN(CSIN( BN) ♦DIST/RE) 

DN=P I-IBN+CN) 

HNL = DSCRT(RE*>»2 + DIST**2-2.*RE*0IST*CCCS(CN) ) 

OENCM = OSGRT(MNPX**2+MNPY**2 ) 

P ITCHN»0ARSIMPNPX/0ENCH) 

RCLLN»DATAMMNPZ/OENCM) 

C COMPLTE N-TH VECTOR FBCM CENTER OF EARTH TC LOCUS 
REI =MNL*CCCS(RCLLN )*0S INIPITCHN) 

REJ=OI ST*0C0S10ELT )-MNl*DCCS (RCLLN)*CCOS I P I TCHN ) 
REK'=FNL*OSIN(RCLLN)-DIST*DSIN(OELT ) 

GC TC AO 

C IF N-TH P VECTCR DOES NOT INTERSECT EARTH CCPPUTE VECTOR 
C FRCM CENTER OF EARTH TO HORIZCN SEEN BY SATELLITE 
30 TALN=CARC0S(MNZ/CSQRT(PNX**2 + PNZA*2) ) 

IFI PNX.LT.O.O)TAUN=-TAUN 
RE I=RE*CC0SIBH)*0SIM TAUN) 

REJ=RE*I-0C0SI0ELT )*DSINIBM)-DSINIOELT)*CCOSI BM )*CCCSITAUN) ) 
R£K=RE*I-rOSINlOELT ) ♦DSINIBM)4CC0SI0ELT )*CCOSI BM )*CCQSITAUN) ) 
AO CEN = DSCRTIREI**24REJ**2 ) 

C CCMPLTE LONGITUDE AND LATITUDE COOPCINATES 
LAT IICT)=SNGLIOATANIREK/OEN)/CCNVTR) 

10 LCNIICT)=SNGLICABSINIREI/0EN)/CCNVTB4CLCNSS ) 

CC BO I=1,NSTEPS 

eo kRIT£I 6 , 200 ) LCNI I ) . LAT II ) 

200 FORMATIIH ,AX,F9.3,6XfF9.3) 

FX=-151. 

FY = C. 
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Appendix E 

ATS-F Dual-Feed Program -3- 



NFl=NSTEPS*l 

NP2*NSTEPS+2 

LCN(NP1I=FX 

LCN(NP2)=0X . , 

LaHNPl) = FY ' ^ 

Lai(NP2 )=0Y 

C PLOT CCORCINATES CF LOCIS 

CALL LINE(LCN«LAT»NSTEPStLtOtO) 

21 CCNllNUE 

CALL Pl.CT(35. ,-i.,22) 

GC TC I 

LOCO IFCKPL7.LE.C) GO TQ 1001 
( C CLOSE FLQTTAPE 

CALL P.LCT(0.0,C.C,999I 
lOOl HPnE(6i700) NPLT 
ICO FCRPAT ( » INUHBER OF PLCTS FRCDUCFC =»,I2) 
STOP 
EAO 



\ 
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APPENDIX F: INPUT FORMATS 
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INPUT FORMATS 



1 . ANTOVLY 

^ 1. FX, FY, FY,- DY 

2. Magnification Factor 

3. Number of beams 



4. 



5. 



SS long, BS long, BS lat. 
Circumference increment. 
Declination 

Orientation, BWi, BW2, 

# of DB levels 



6. DB levels 
repeat 4 , 5 .& 6 for each-.beam- 



4F10.3 
Flo. 3 
'll 

5F9.3 

3F9.3, 12 
nF7 . 3 



2 . MINMAP 

1. Magnification Factor 

2. XLL, XUL, YLL, DUL 



' FI 0.3 
4F10.3 



3 . WORLDMAP 

1. Magnification Factor 



Flo. 3 



5. 



PERSPECT 

1. Magnification Factor 

2. SS long, SS lat 

3. # of constant elevation 
contours 

4. Const, elev. contours • 
repeat 2,3 & 4 for^each case 

ATSFS . 

1. Magnification Factor 

2. SS long, BS long, BS lat. 
Circumference increment. 
Declination 

3. BWI, BW2‘ 

...--..'A 



Flo. 3 
Flo. 3 

II 

nF5.3 



Flo. 3 

5F9.3 

2F9.3 



ERIC 



41 



i 



